home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SNNSV32.ZIP / SNNSv3.2 / xgui / sources / ui_maspar.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-25  |  5.9 KB  |  223 lines
  1. /*****************************************************************************
  2.   FILE           : ui_maspar.c
  3.   SHORTNAME      : maspar.c
  4.   SNNS VERSION   : 3.2
  5.  
  6.   PURPOSE        :
  7.   NOTES          :
  8.  
  9.   AUTHOR         :
  10.   DATE           :
  11.  
  12.   CHANGED BY     :
  13.   IDENTIFICATION : @(#)ui_maspar.c    1.12 3/2/94
  14.   SCCS VERSION   : 1.12
  15.   LAST CHANGE    : 3/2/94
  16.  
  17.              Copyright (c) 1990-1994  SNNS Group, IPVR, Univ. Stuttgart, FRG
  18.  
  19. ******************************************************************************/
  20.  
  21.  
  22. #include "ui.h"
  23.  
  24. #include <X11/Xaw/Form.h>
  25. #include <X11/Xaw/Box.h>
  26. #include <X11/Xaw/Cardinals.h>
  27. #include <X11/Xaw/SimpleMenu.h>
  28. #include <X11/Xaw/SmeBSB.h>
  29. #include <X11/Xaw/SmeLine.h>
  30.  
  31. #include "kr_ui.h"
  32. #include "krui_typ.h"
  33.  
  34. #ifdef MASPAR_KERNEL
  35.  
  36. #include "ui_xWidgets.h"
  37. #include "ui_textP.h"
  38.  
  39. #include "ui_maspar.ph"
  40.  
  41.  
  42. /*****************************************************************************
  43.   FUNCTION : connect_MasPar
  44.  
  45.   PURPOSE  :
  46.   RETURNS  : void
  47.   NOTES    :
  48.  
  49.   UPDATE   :
  50. ******************************************************************************/
  51.  
  52. static void connect_MasPar (void)
  53.  
  54. { 
  55.     err = krui_MasPar (MASPAR_CONNECT);
  56.     if (err == KRERR_NO_ERROR) {
  57.         ui_xSetToggleState (connect, TRUE);
  58.         ui_xSetToggleState (disconnect, FALSE);
  59.     } else {
  60.         ui_tw_errorMessage (krui_error (err));
  61.         ui_xSetToggleState (connect, FALSE);
  62.     }
  63. }
  64.  
  65.  
  66. /*****************************************************************************
  67.   FUNCTION : disconnect_MasPar
  68.  
  69.   PURPOSE  :
  70.   RETURNS  : void
  71.   NOTES    :
  72.  
  73.   UPDATE   :
  74. ******************************************************************************/
  75.  
  76. static void disconnect_MasPar (void)
  77.  
  78. { 
  79.     err = krui_MasPar (MASPAR_DISCONNECT);
  80.     if (err == KRERR_NO_ERROR) {
  81.         ui_xSetToggleState (disconnect, TRUE);
  82.         ui_xSetToggleState (connect, FALSE);
  83.     } else {
  84.         ui_tw_errorMessage (krui_error (err));
  85.         ui_xSetToggleState (disconnect, FALSE);
  86.     }
  87. }
  88.  
  89.  
  90. /*****************************************************************************
  91.   FUNCTION : standard_Net
  92.  
  93.   PURPOSE  :
  94.   RETURNS  : void
  95.   NOTES    :
  96.  
  97.   UPDATE   :
  98. ******************************************************************************/
  99.  
  100. static void standard_Net (void)
  101.  
  102. {
  103.     err = krui_setSpecialNetworkType (NET_TYPE_GENERAL);
  104.     if (err == KRERR_NO_ERROR) {
  105.         ui_xSetToggleState (standard, TRUE);
  106.         ui_xSetToggleState (feedforward, FALSE);
  107.     } else {
  108.         ui_tw_errorMessage (krui_error (err));
  109.         ui_xSetToggleState (standard, FALSE);
  110.     }
  111. }
  112.  
  113.  
  114. /*****************************************************************************
  115.   FUNCTION : feedforward_Net
  116.  
  117.   PURPOSE  :
  118.   RETURNS  : void
  119.   NOTES    :
  120.  
  121.   UPDATE   :
  122. ******************************************************************************/
  123.  
  124. static void feedforward_Net (void)
  125.  
  126. {
  127.     err = krui_setSpecialNetworkType (NET_TYPE_FF1);
  128.     if (err == KRERR_NO_ERROR) {
  129.         ui_xSetToggleState (standard, FALSE);
  130.         ui_xSetToggleState (feedforward, TRUE);
  131.     } else {
  132.         ui_tw_errorMessage (krui_error (err));
  133.         ui_xSetToggleState (feedforward, FALSE);
  134.     }
  135. }
  136.  
  137.  
  138. /*****************************************************************************
  139.   FUNCTION : closeMasparPannel
  140.  
  141.   PURPOSE  :
  142.   RETURNS  : void
  143.   NOTES    :
  144.  
  145.   UPDATE   :
  146. ******************************************************************************/
  147.  
  148. static void closeMasparPannel (Widget w, Widget pannel, caddr_t call_data)
  149.  
  150. {
  151.     XtDestroyWidget (pannel);
  152. }
  153.  
  154.  
  155. /*****************************************************************************
  156.   FUNCTION : ui_masparPannel
  157.  
  158.   PURPOSE  :
  159.   RETURNS  : void
  160.   NOTES    :
  161.  
  162.   UPDATE   :
  163. ******************************************************************************/
  164.  
  165. void ui_masparPannel (Widget w, Widget button, caddr_t call_data)
  166.  
  167. {
  168.     int n;
  169.     Arg arg[10];
  170.     Position xPos, yPos;
  171.     Dimension width, height;
  172.     Widget masparPannel, border, pannel, label0, label1, done;
  173.  
  174.     n = 0;
  175.     XtSetArg (arg[n], XtNwidth, &width); n++;
  176.     XtSetArg (arg[n], XtNheight, &height); n++;
  177.     XtGetValues (button, arg, (unsigned int) n);
  178.     XtTranslateCoords (button, (Position) (width / 2), (Position) (height / 2), 
  179.                        &xPos, &yPos);
  180.  
  181.     n = 0;
  182.     XtSetArg(arg[n], XtNx, xPos); n++;
  183.     XtSetArg(arg[n], XtNy, yPos); n++;
  184.     masparPannel = XtCreatePopupShell ("MasPar", transientShellWidgetClass, 
  185.                                        button, arg, (unsigned int) n);
  186.     border = XtCreateManagedWidget ("border", boxWidgetClass, 
  187.                                      masparPannel, NULL, ZERO);
  188.     pannel = XtCreateManagedWidget ("pannel", formWidgetClass, 
  189.                                      border, NULL, ZERO);
  190. /*
  191.     label0 = ui_xCreateLabelItem ("MasPar          ", pannel, 
  192.                                   16 * 8, NULL, NULL); 
  193.     connect = ui_xCreateToggleItem ("connect", pannel, NULL, label0, NULL);
  194.     disconnect = ui_xCreateToggleItem ("disconnect", pannel, NULL, connect, NULL);
  195. */
  196.     label1 = ui_xCreateLabelItem ("Network Topology", pannel, 
  197.                                   16 * 8, NULL, label0); 
  198.     standard = ui_xCreateToggleItem ("standard", pannel, NULL, label1, label0);
  199.     feedforward = ui_xCreateToggleItem ("feedforward", pannel, NULL, 
  200.                                   standard, label0);
  201.  
  202.     done = ui_xCreateButtonItem ("done", border, NULL, label1);
  203.  
  204.     XtAddCallback (done, XtNcallback, (XtCallbackProc) closeMasparPannel, (Widget) masparPannel);
  205. /*
  206.     XtAddCallback (connect, XtNcallback, (XtCallbackProc) connect_MasPar, NULL);
  207.     XtAddCallback (disconnect, XtNcallback, (XtCallbackProc) disconnect_MasPar, NULL);
  208. */
  209.     XtAddCallback (standard, XtNcallback, (XtCallbackProc) standard_Net, NULL);
  210.     XtAddCallback (feedforward, XtNcallback, (XtCallbackProc) feedforward_Net, NULL);
  211.  
  212.     ui_checkWindowPosition(masparPannel);
  213.     XtPopup (masparPannel, XtGrabNone);
  214.     ui_xDontResizeWidget(masparPannel); 
  215. }
  216.  
  217.  
  218. #endif /* MASPAR_KERNEL */
  219.  
  220.  
  221. /* end of file */
  222. /* lines: 161 */
  223.